home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
faq-s.zip
/
CORRUPT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-05-04
|
778b
|
38 lines
program corrupt;
uses crt,dos,userret,gentypes,gensubs,configrt;
var old,new,u:userrec;
oldf,newf:file of userrec;
index:file of mstr;
i:integer;
begin
readconfig;
assign (oldf,bbsdatadir+'USERS.DAT');
assign (newf,bbsdatadir+'USERS.NEW');
assign (index,bbsdatadir+'USERINDX.DAT');
if exist (bbsdatadir+'USERINDX.DAT') then begin
close (oldf);
reset (oldf);
rewrite (newf);
close (index);
reset (index);
for i:=1 to filesize (index) do begin
seek (index,i-1);
read (index,u.handle);
seek (oldf,i-1);
read (oldf,old);
seek (newf,i-1);
write (newf,old);
end;
textcolor (15);
writeln ('User Fixing Complete!');
textcolor (7);
close (oldf);
close (newf);
close (index);
end else writeln ('User Files not found!');
halt (0);
end.